home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSWNDO.for < prev    next >
Text File  |  1991-04-13  |  716b  |  24 lines
  1.         SUBROUTINE GSWNDO(UXL,UXH,UYL,UYH,XOFF,YOFF,XAWDTH,YAHIGH)
  2.     IMPLICIT NONE
  3.         REAL*4 UXL,UXH,UYL,UYH,XOFF,YOFF,XAWDTH,YAHIGH
  4. C
  5. C       THIS SUBROUTINE PROVIDES DIGLIB V3'S WINDOW/VIEWPORT MECHANISM.
  6. C
  7.         INCLUDE DIGLIB$KOM:GCCLIP.PRM
  8.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  9.         INCLUDE DIGLIB$KOM:GCDPRM.PRM
  10. C
  11. C
  12.         RCOS = 1.0
  13.         RSIN = 0.0
  14.         XS = XAWDTH/(UXH-UXL)
  15.         YS = YAHIGH/(UYH-UYL)
  16.         XT = XOFF - XS*UXL
  17.         YT = YOFF - YS*UYL
  18.         XCM0 = AMAX1(AMIN1(XOFF,XOFF+XAWDTH),0.0)
  19.         YCM0 = AMAX1(AMIN1(YOFF,YOFF+YAHIGH),0.0)
  20.         XCM1 = AMIN1(XCLIPD,AMAX1(XOFF,XOFF+XAWDTH))
  21.         YCM1 = AMIN1(YCLIPD,AMAX1(YOFF,YOFF+YAHIGH))
  22.         RETURN
  23.         END
  24.